home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / c / stormamiga_lib / hd-installer_script < prev    next >
Text File  |  1997-12-01  |  18KB  |  693 lines
  1. ;************************************************************
  2. ;* stormamiga.lib Installer Version 3.0a  10. November 1997 *
  3. ;*                                                          *
  4. ;*            © Copyright 1996/97 by COMPIUTECK             *
  5. ;*                written by Matthias Henze                 *
  6. ;*       english translation written by Thomas Blätte       *
  7. ;*                                                          *
  8. ;************************************************************
  9. ;
  10. ; $VER: HD-Installer_script 3.0a (10.11.97)
  11.  
  12. (set stormamiga-Version "Version 43.00")
  13. (set stormamiga-Datum "10. November 1997")
  14. (set stormamiga-Datum_e "10. November 1997")
  15.  
  16. ;====================================================================
  17. ; Initialisierungen
  18. ;====================================================================
  19.  
  20. (set @default-dest "")
  21.  
  22. (if (= @language "deutsch")
  23.  (
  24.     (set #welcome (cat
  25.     "\nWillkommen bei der Installation der \n\n"
  26.     "\"stormamiga.lib\"\n\n"
  27.     ""stormamiga-Version" vom "stormamiga-Datum"\n\n"
  28.     "Dieses Skript installiert die \"stormamiga.lib\",\n"
  29.     "entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
  30.     "© Kopierrecht 1996/97 bei COMPIUTECK\n"
  31.     "geschrieben von Matthias Henze"))
  32.     
  33.  
  34.     (set #Passworteingabe (cat
  35.     "\nIhr Passwort bitte!"))
  36.  
  37.  
  38.     (set #StormC-Version_Auswahl (cat
  39.     "\nMöchten Sie die \"stormamiga.lib\" für StormC V2 oder für StormC V3 installieren.\n"))
  40.  
  41.     (set #V2  " StormC V2")
  42.     (set #V3  " StormC V3")
  43.  
  44.  
  45.     (set #startup_Auswahl (cat
  46.     "\nWelche(n) Startupcode(s) möchten Sie installieren?\n"))
  47.     
  48.     (set #FAR_C_Startupcode       " \"stormamiga_startups.o\"         (Far Code)")
  49.     (set #NEAR_C_Startupcode      " \"stormamiga_nc_startups.o\"      (Near Code)")
  50.     (set #FAR_C_Startupcode+      " \"stormamiga_startups+.o\"        (Far Code)")
  51.     (set #NEAR_C_Startupcode+     " \"stormamiga_nc_startups+.o\"     (Near Code)")
  52.     (set #FAR_C_C++_Startupcode   " \"stormamiga_C++_startups.o\"     (Far Code)")
  53.     (set #NEAR_C_C++_Startupcode  " \"stormamiga_nc_C++_startups.o\"  (Near Code)")
  54.     (set #FAR_C_C++_Startupcode+  " \"stormamiga_C++_startups+.o\"    (Far Code)")
  55.     (set #NEAR_C_C++_Startupcode+ " \"stormamiga_nc_C++_startups+.o\" (Near Code)")
  56.  
  57.     
  58.     (set #Versions_Auswahl (cat
  59.     "\nWählen Sie die Bibliothek(en) aus, die Sie installieren möchten.\n"))
  60.     
  61.     (set #MC68EC020+            " Basisbibliothek für MC68EC020+")
  62.     (set #MC68EC020+_&_MC68881+ " Erweiterungsbibliothek für MC68881+")
  63.     (set #MC68040+              " Erweiterungsbibliothek für MC68040+")
  64.     (set #MC68060               " Erweiterungsbibliothek für MC68060")
  65.     
  66.     (set #Code_Modell_Auswahl (cat
  67.     "\nDie \"stormamiga.lib\" gibt es für das kleine und das große Code-Modell.\n"
  68.     "\nWelche Version(en) möchten Sie installieren?\n"))
  69.     
  70.     (set #Code_Modell_Auswahl_881 (cat
  71.     "\nDie \"stormamiga_881.lib\" gibt es für das kleine und das große Code-Modell.\n"
  72.     "\nWelche Version(en) möchten Sie installieren?\n"))
  73.     
  74.     (set #Code_Modell_Auswahl_040 (cat
  75.     "\nDie \"stormamiga_040.lib\" gibt es für das kleine und das große Code-Modell.\n"
  76.     "\nWelche Version(en) möchten Sie installieren?\n"))
  77.     
  78.     (set #Code_Modell_Auswahl_060 (cat
  79.     "\nDie \"stormamiga_060.lib\" gibt es für das kleine und das große Code-Modell.\n"
  80.     "\nWelche Version(en) möchten Sie installieren?\n"))
  81.     
  82.     (set #FAR_C   " großes Code-Modell")
  83.     (set #NEAR_C  " kleines Code-Modell")
  84.     
  85.     (set #Standardbeispiele_Auswahl (cat
  86.     "\nUm die Vorteile der \"stormamiga.lib\" etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
  87.     "\nMöchten Sie diese Beispiele installieren.\n"))
  88.     
  89.     (set #ja    "ja")
  90.     (set #nein  "nein")
  91.     
  92.     (set #Beispiele_Liste (cat
  93.     "Installation der Beispiele.\n"
  94.     "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
  95.     "Ein Verzeichnis \"stormamiga_lib_Examples\" wird automatisch erzeugt."))
  96.     
  97.     (set #Spezialbeispiele_Auswahl (cat
  98.     "\nUm die Vorteile und Anwendungsmöglichkeiten der Spezialfunktionen etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
  99.     "Wenn Sie bereits die Standardbeispiele installiert haben, wird automatisch das gleiche Zielverzeichnis benutzt. Ansonsten können Sie ein Zielverzeichnis auswählen.\n"
  100.     "\nMöchten Sie diese Beispiele installieren.\n"))
  101.     
  102.     
  103.     (set #Spezialfunktionen_Auswahl (cat
  104.     "\nMöchten Sie die Spezialfunktionen der \"stormamiga.lib\" nutzen.\n"))
  105.     
  106.     
  107.     (set #User.dic_Auswahl (cat
  108.     "\nUm das Syntax Highlighting auch für die Spezialfunktionen der \"stormamiga.lib\" nutzen zu können, ist es notwendig ein Benutzerlexikon zu installieren.\n"
  109.     "\nWählen Sie aus, ob und mit welchem Name das Benutzerlexikon installiert werden soll.\n"))
  110.     
  111.     (set #User1.dic     "User 1.dic")
  112.     (set #User2.dic     "User 2.dic")
  113.     (set #User3.dic     "User 3.dic")
  114.     (set #kein_User.dic "Kein Benutzerlexikon installieren")
  115.     
  116.     
  117.     (set #Anleitungen_Auswahl (cat
  118.     "\nWählen Sie die Sprache(n) für die AmigaGuide Dokumentation aus.\n"))
  119.     
  120.     (set #Deutsch " Deutsch")
  121.     (set #English " English")
  122.     
  123.     (set #Anleitungen_Liste (cat
  124.     "Installation der Anleitung(en).\n"
  125.     "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
  126.     "Es wird kein Verzeichnis erzeugt."))
  127.  )
  128.  (
  129.     (set #welcome (cat
  130.     "\nWelcome to the installation of the\n\n"
  131.     "\"stormamiga.lib\"\n\n"
  132.     ""stormamiga-Version" from "stormamiga-Datum_e"\n\n"
  133.     "This script installs the \"stormamiga.lib\"\n"
  134.     "according to your specification to your harddisk.\n\n\n"
  135.     "© Copyright 1996/97 by COMPIUTECK\n"
  136.     "written by Matthias Henze"))
  137.     
  138.  
  139.     (set #Passworteingabe (cat
  140.     "\nYour password please!"))
  141.  
  142.  
  143.     (set #StormC-Version_Auswahl (cat
  144.     "\nPlease choose whether you like to install the \"stormamiga.lib\" for StormC V2 or for StormC V3.\n"))
  145.  
  146.     (set #V2  " StormC V2")
  147.     (set #V3  " StormC V3")
  148.  
  149.  
  150.     (set #startup_Auswahl (cat
  151.     "\nWhich startup code(s) do you want to install?\n"))
  152.     
  153.     (set #FAR_C_Startupcode       " \"stormamiga_startups.o\"         (Far Code)")
  154.     (set #NEAR_C_Startupcode      " \"stormamiga_nc_startups.o\"      (Near Code)")
  155.     (set #FAR_C_Startupcode+      " \"stormamiga_startups+.o\"        (Far Code)")
  156.     (set #NEAR_C_Startupcode+     " \"stormamiga_nc_startups+.o\"     (Near Code)")
  157.     (set #FAR_C_C++_Startupcode   " \"stormamiga_C++_startups.o\"     (Far Code)")
  158.     (set #NEAR_C_C++_Startupcode  " \"stormamiga_nc_C++_startups.o\"  (Near Code)")
  159.     (set #FAR_C_C++_Startupcode+  " \"stormamiga_C++_startups+.o\"    (Far Code)")
  160.     (set #NEAR_C_C++_Startupcode+ " \"stormamiga_nc_C++_startups+.o\" (Near Code)")
  161.  
  162.     
  163.     (set #Versions_Auswahl (cat
  164.     "\nPlease choose the library(-ies) you want to install.\n"))
  165.     
  166.     (set #MC68EC020+            " basic library for MC68EC020+")
  167.     (set #MC68EC020+_&_MC68881+ " expansion library for MC68881+")
  168.     (set #MC68040+              " expansion library for MC68040+")
  169.     (set #MC68060               " expansion library for MC68060")
  170.     
  171.     (set #Code_Modell_Auswahl (cat
  172.     "\nThe \"stormamiga.lib\" is available for the small and large code model.\n"
  173.     "\nWhich version(s) do you want to install?\n"))
  174.     
  175.     (set #Code_Modell_Auswahl_881 (cat
  176.     "\nThe \"stormamiga_881.lib\" is available for the small and large code model.\n"
  177.     "\nWhich version(s) do you want to install?\n"))
  178.     
  179.     (set #Code_Modell_Auswahl_040 (cat
  180.     "\nThe \"stormamiga_040.lib\" is available for the small and large code model.\n"
  181.     "\nWhich version(s) do you want to install?\n"))
  182.     
  183.     (set #Code_Modell_Auswahl_060 (cat
  184.     "\nThe \"stormamiga_060.lib\" is available for the small and large code model.\n"
  185.     "\nWhich version(s) do you want to install?\n"))
  186.     
  187.     (set #FAR_C   " large code model")
  188.     (set #NEAR_C  " small code model")
  189.     
  190.     (set #Standardbeispiele_Auswahl (cat
  191.     "\nI added some examples to show the advanages of the \"stormamiga.lib\".\n"
  192.     "\nDo you want to install these examples?\n"))
  193.     
  194.     (set #ja    "yes")
  195.     (set #nein  "no")
  196.     
  197.     (set #Beispiele_Liste (cat
  198.     "Installation of the examples.\n"
  199.     "Please choose a volume or directory.\n"
  200.     "A directory \"stormamiga_lib_Examples\" will be created automatically."))
  201.     
  202.     (set #Spezialbeispiele_Auswahl (cat
  203.     "\nI added some examples to show the advanages and features of the special functions.\n"
  204.     "If you allready installed the standard examples, the same destination directory will be used. If not, you may choose a destination directory.\n"
  205.     "\nDo you want to install these examples?\n"))
  206.     
  207.     
  208.     (set #Spezialfunktionen_Auswahl (cat
  209.     "\nDo you want to use the special functions of the \"stormamiga.lib\"?\n"))
  210.     
  211.     
  212.     (set #User.dic_Auswahl (cat
  213.     "\nTo make Syntax Highlighting also available for the special functions of the \"stormamiga.lib\", it is necessary to install a user dictonary.\n"
  214.     "\nPlease choose the name of the user dictionary if you like to install it.\n"))
  215.     
  216.     (set #User1.dic     "User 1.dic")
  217.     (set #User2.dic     "User 2.dic")
  218.     (set #User3.dic     "User 3.dic")
  219.     (set #kein_User.dic "No user dictonary")
  220.     
  221.     
  222.     (set #Anleitungen_Auswahl (cat
  223.     "\nPlease choose the language(s) for the AmigaGuide documentation.\n"))
  224.     
  225.     (set #Deutsch " Deutsch")
  226.     (set #English " English")
  227.     
  228.     (set #Anleitungen_Liste (cat
  229.     "Installation of the manual(s).\n"
  230.     "Please choose a volume or a directory.\n"
  231.     "A new directory will not be created."))
  232.  )
  233. )
  234. (set Quelle-dic "StormSYS/Dictionary/User.dic")
  235. (set Ziel-dic "StormC:StormSYS/Dictionary")
  236.  
  237. ;=====================================================================================
  238. ; Beginn der Installation
  239. ;=====================================================================================
  240.  
  241. (message #welcome)
  242. (welcome)
  243.  
  244. (set #Passwort
  245.   (askstring
  246.     (prompt #Passworteingabe)
  247.     (help   @askstring-help)
  248.   )
  249. )
  250. (run "qrypt stormamiga_lib.lha.cry" #Passwort)
  251. (run "lhex  x " "stormamiga_lib.lha")
  252.  
  253. (
  254.   (set StormC-Version
  255.     (askchoice
  256.       (prompt #StormC-Version_Auswahl)
  257.       (help   @askchoice-help)
  258.       (default 1)
  259.       (choices
  260.     #V2
  261.     #V3
  262.       )
  263.     )
  264.   )
  265.   (if (= StormC-Version 0)
  266.     (
  267.       (set Quelle-1 "StormSYS/StormC_V2-startups")
  268.       (set Ziel-1 "StormC:StormSYS")
  269.       (set Quelle-2 "StormC_V3-Examples/standard")
  270.       (set Quelle-3 "StormC_V2-Examples/special")
  271.     )
  272.     (
  273.       (set Quelle-1 "StormSYS/StormC_V3-startups")
  274.       (set Ziel-1 "StormC:StormSYS/startups")
  275.       (set Quelle-2 "StormC_V3-Examples/standard")
  276.       (set Quelle-3 "StormC_V3-Examples/special")
  277.     )
  278.   )
  279. )
  280.  
  281. (makeassign "TMP" Quelle-1)
  282.  
  283. (
  284.   (set kopiere_startups
  285.     (askoptions
  286.       (prompt #startup_Auswahl)
  287.       (help   @askoptions-help)
  288.       (choices
  289.     #FAR_C_Startupcode
  290.     #FAR_C_Startupcode+
  291.     #NEAR_C_Startupcode
  292.     #NEAR_C_Startupcode+
  293.     #FAR_C_C++_Startupcode
  294.     #FAR_C_C++_Startupcode+
  295.     #NEAR_C_C++_Startupcode
  296.     #NEAR_C_C++_Startupcode+
  297.       )
  298.     )
  299.   )
  300.   (if (IN kopiere_startups 0) (set FAR_C_Startupcode 1))
  301.   (if (IN kopiere_startups 1) (set NEAR_C_Startupcode 1))
  302.   (if (IN kopiere_startups 2) (set FAR_C_Startupcode+ 1))
  303.   (if (IN kopiere_startups 3) (set NEAR_C_Startupcode+ 1))
  304.   (if (IN kopiere_startups 4) (set FAR_C_C++_Startupcode 1))
  305.   (if (IN kopiere_startups 5) (set NEAR_C_C++_Startupcode 1))
  306.   (if (IN kopiere_startups 6) (set FAR_C_C++_Startupcode+ 1))
  307.   (if (IN kopiere_startups 7) (set NEAR_C_C++_Startupcode+ 1))
  308.  
  309.   (if (= FAR_C_Startupcode 1)
  310.     (copyfiles
  311.       (source "TMP:stormamiga_startups.o")
  312.       (dest Ziel-1)
  313.     )
  314.   )
  315.   (if (= NEAR_C_Startupcode 1)
  316.     (copyfiles
  317.       (source "TMP:stormamiga_nc_startups.o")
  318.       (dest Ziel-1)
  319.     )
  320.   )
  321.   (if (= FAR_C_Startupcode+ 1)
  322.     (copyfiles
  323.       (source "TMP:stormamiga_startups+.o")
  324.       (dest Ziel-1)
  325.     )
  326.   )
  327.   (if (= NEAR_C_Startupcode+ 1)
  328.     (copyfiles
  329.       (source "TMP:stormamiga_nc_startups+.o")
  330.       (dest Ziel-1)
  331.     )
  332.   )
  333.   (if (= FAR_C_C++_Startupcode 1)
  334.     (copyfiles
  335.       (source "TMP:stormamiga_C++_startups.o")
  336.       (dest Ziel-1)
  337.     )
  338.   )
  339.   (if (= NEAR_C_C++_Startupcode 1)
  340.     (copyfiles
  341.       (source "TMP:stormamiga_nc_C++_startups.o")
  342.       (dest Ziel-1)
  343.     )
  344.   )
  345.   (if (= FAR_C_C++_Startupcode+ 1)
  346.     (copyfiles
  347.       (source "TMP:stormamiga_C++_startups+.o")
  348.       (dest Ziel-1)
  349.     )
  350.   )
  351.   (if (= NEAR_C_C++_Startupcode+ 1)
  352.     (copyfiles
  353.       (source "TMP:stormamiga_nc_C++_startups+.o")
  354.       (dest Ziel-1)
  355.     )
  356.   )
  357. )
  358.  
  359. (
  360.   (set wähle_Libs
  361.     (askoptions
  362.       (prompt #Versions_Auswahl)
  363.       (help   @askoptions-help)
  364.       (default 1)
  365.       (choices
  366.     #MC68EC020+
  367.     #MC68EC020+_&_MC68881+
  368.     #MC68040+
  369.     #MC68060
  370.       )
  371.     )
  372.   )
  373.   (if (IN wähle_Libs 0) (set MC68EC020+ 1))
  374.   (if (IN wähle_Libs 1) (set MC68EC020+_&_MC68881+ 1))
  375.   (if (IN wähle_Libs 2) (set MC68040+ 1))
  376.   (if (IN wähle_Libs 3) (set MC68060 1))
  377.  
  378.   (if (= MC68EC020+  1)
  379.     ( (set FAR_C 0) (set NEAR_C 0)
  380.       (set kopiere_Libs
  381.     (askoptions
  382.       (prompt #Code_Modell_Auswahl)
  383.       (help   @askoptions-help)
  384.       (choices
  385.         #FAR_C
  386.         #NEAR_C
  387.       )
  388.     )
  389.       )
  390.       (if (IN kopiere_Libs 0) (set FAR_C 1))
  391.       (if (IN kopiere_Libs 1) (set NEAR_C 1))
  392.  
  393.       (if (= FAR_C 1)
  394.     (copyfiles
  395.       (source "lib/stormamiga.lib")
  396.       (dest "StormC:Lib")
  397.     )
  398.       )
  399.       (if (= NEAR_C 1)
  400.     (copyfiles
  401.       (source "lib/stormamiga_nc.lib")
  402.       (dest "StormC:Lib")
  403.     )
  404.       )
  405.     )
  406.   )
  407.   (if (= MC68EC020+_&_MC68881+ 1)
  408.     ( (set FAR_C 0) (set NEAR_C 0)
  409.       (set kopiere_Libs
  410.     (askoptions
  411.       (prompt #Code_Modell_Auswahl_881)
  412.       (help   @askoptions-help)
  413.       (choices
  414.         #FAR_C
  415.         #NEAR_C
  416.       )
  417.     )
  418.       )
  419.       (if (IN kopiere_Libs 0) (set FAR_C 1))
  420.       (if (IN kopiere_Libs 1) (set NEAR_C 1))
  421.  
  422.       (if (= FAR_C 1)
  423.     (copyfiles
  424.       (source "lib/stormamiga_881.lib")
  425.       (dest "StormC:Lib")
  426.     )
  427.       )
  428.       (if (= NEAR_C 1)
  429.     (copyfiles
  430.       (source "lib/stormamiga_nc_881.lib")
  431.       (dest "StormC:Lib")
  432.     )
  433.       )
  434.     )
  435.   )
  436.   (if (= MC68040+  1)
  437.     ( (set FAR_C 0) (set NEAR_C 0)
  438.       (set kopiere_Libs
  439.     (askoptions
  440.       (prompt #Code_Modell_Auswahl_040)
  441.       (help   @askoptions-help)
  442.       (choices
  443.         #FAR_C
  444.         #NEAR_C
  445.       )
  446.     )
  447.       )
  448.       (if (IN kopiere_Libs 0) (set FAR_C 1))
  449.       (if (IN kopiere_Libs 1) (set NEAR_C 1))
  450.  
  451.       (if (= FAR_C 1)
  452.     (copyfiles
  453.       (source "lib/stormamiga_040.lib")
  454.       (dest "StormC:Lib")
  455.     )
  456.       )
  457.       (if (= NEAR_C 1)
  458.     (copyfiles
  459.       (source "lib/stormamiga_nc_040.lib")
  460.       (dest "StormC:Lib")
  461.     )
  462.       )
  463.     )
  464.   )
  465.   (if (= MC68060  1)
  466.     ( (set FAR_C 0) (set NEAR_C 0)
  467.       (set kopiere_Libs
  468.     (askoptions
  469.       (prompt #Code_Modell_Auswahl_060)
  470.       (help   @askoptions-help)
  471.       (choices
  472.         #FAR_C
  473.         #NEAR_C
  474.       )
  475.     )
  476.       )
  477.       (if (IN kopiere_Libs 0) (set FAR_C 1))
  478.       (if (IN kopiere_Libs 1) (set NEAR_C 1))
  479.  
  480.       (if (= FAR_C 1)
  481.     (copyfiles
  482.       (source "lib/stormamiga_060.lib")
  483.       (dest "StormC:Lib")
  484.     )
  485.       )
  486.       (if (= NEAR_C 1)
  487.     (copyfiles
  488.       (source "lib/stormamiga_nc_060.lib")
  489.       (dest "StormC:Lib")
  490.     )
  491.       )
  492.     )
  493.   )
  494. )
  495.  
  496. (
  497.   (set kopiere_Standardbeispiele
  498.     (askchoice
  499.       (prompt #Standardbeispiele_Auswahl)
  500.       (help   @askchoice-help)
  501.       (default 0)
  502.       (choices
  503.     #ja
  504.     #nein
  505.       )
  506.     )
  507.   )
  508.   (if (= kopiere_Standardbeispiele 0)
  509.     (
  510.       (set Zielverzeichnis
  511.     (askdir
  512.       (prompt #Beispiele_Liste)
  513.       (help @askdir-help)
  514.       (default "StormC:Examples")
  515.     )
  516.       )
  517.       (makeassign "INST" Zielverzeichnis)
  518.       (copyfiles
  519.     (source Quelle-2)
  520.     (dest "INST:stormamiga_lib_Examples")
  521.     (all)
  522.     (infos)
  523.       )
  524.     )
  525.   )
  526. )
  527.  
  528. (
  529.   (set Spezialfunktionen_Auswahl
  530.     (askchoice
  531.       (prompt #Spezialfunktionen_Auswahl)
  532.       (help   @askchoice-help)
  533.       (default 0)
  534.       (choices
  535.     #ja
  536.     #nein
  537.       )
  538.     )
  539.   )
  540.   (if (= Spezialfunktionen_Auswahl 0)
  541.     (
  542.       (copyfiles
  543.     (source "Include/stormamiga.h")
  544.     (dest "StormC:Include")
  545.       )
  546.       (copyfiles
  547.     (source "Include/stormamigainline.h")
  548.     (dest "StormC:Include")
  549.       )
  550.       (set kopiere_User.dic
  551.     (askchoice
  552.       (prompt #User.dic_Auswahl)
  553.       (help   @askchoice-help)
  554.       (default 0)
  555.       (choices
  556.         #User1.dic
  557.         #User2.dic
  558.         #User3.dic
  559.         #kein_User.dic
  560.       )
  561.     )
  562.       )
  563.       (if (= kopiere_User.dic 0)
  564.     (copyfiles
  565.       (source Quelle-dic)
  566.       (dest Ziel-dic)
  567.       (newname "User 1.dic")
  568.     )
  569.       )
  570.       (if (= kopiere_User.dic 1)
  571.     (copyfiles
  572.       (source Quelle-dic)
  573.       (dest Ziel-dic)
  574.       (newname "User 2.dic")
  575.     )
  576.       )
  577.       (if (= kopiere_User.dic 2)
  578.     (copyfiles
  579.       (source Quelle-dic)
  580.       (dest Ziel-dic)
  581.       (newname "User 3.dic")
  582.     )
  583.       )
  584.       (set kopiere_Spezialbeispiele
  585.     (askchoice
  586.       (prompt #Spezialbeispiele_Auswahl)
  587.       (help   @askchoice-help)
  588.       (default 0)
  589.       (choices
  590.         #ja
  591.         #nein
  592.       )
  593.     )
  594.       )
  595.       (if (= kopiere_Spezialbeispiele 0)
  596.     (
  597.       (if (exists "INST:stormamiga_lib_Examples" (noreq))
  598.         (copyfiles
  599.           (source Quelle-3)
  600.           (dest "INST:stormamiga_lib_Examples")
  601.           (all)
  602.           (infos)
  603.         )
  604.       )
  605.       (if (= (exists "INST:stormamiga_lib_Examples" (noreq))0)
  606.         (
  607.           (set Zielverzeichnis
  608.         (askdir
  609.           (prompt #Beispiele_Liste)
  610.           (help @askdir-help)
  611.           (default "StormC:Examples")
  612.         )
  613.           )
  614.           (makeassign "INST" Zielverzeichnis)
  615.           (copyfiles
  616.         (source Quelle-3)
  617.         (dest "INST:stormamiga_lib_Examples")
  618.         (all)
  619.         (infos)
  620.           )
  621.         )
  622.       )
  623.     )
  624.       )
  625.     )
  626.   )
  627. )
  628.  
  629. (
  630.   (set kopiere_Anleitungen
  631.     (askoptions
  632.       (prompt #Anleitungen_Auswahl)
  633.       (help   @askoptions-help)
  634.       (default 1)
  635.       (choices
  636.     #Deutsch
  637.     ;#English
  638.       )
  639.     )
  640.   )
  641.   (if (IN kopiere_Anleitungen 0) (set Deutsch 1))
  642.   (if (IN kopiere_Anleitungen 1) (set English 1))
  643.  
  644.   (if (= Deutsch 1)
  645.     (
  646.       (set Dokverzeichnis
  647.     (askdir
  648.       (prompt #Anleitungen_Liste)
  649.       (help @askdir-help)
  650.       (default "StormC:")
  651.     )
  652.       )
  653.       (makeassign "INSTDOK" Dokverzeichnis)
  654.       (copyfiles
  655.     (source "stormamiga_lib.guide")
  656.     (dest "INSTDOK:")
  657.     (infos)
  658.       )
  659.     )
  660.   )
  661.   (if (= English 1)
  662.     (
  663.       (if (exists "INSTDOK:" (noreq))
  664.     (copyfiles
  665.       (source "stormamiga_lib_e.guide")
  666.       (dest "INSTDOK:")
  667.       (infos)
  668.     )
  669.       )
  670.       (if (= (exists "INSTDOK:" (noreq))0)
  671.     (
  672.       (set Dokverzeichnis
  673.         (askdir
  674.           (prompt #Anleitungen_Liste)
  675.           (help @askdir-help)
  676.           (default "StormC:")
  677.         )
  678.       )
  679.       (makeassign "INSTDOK" Dokverzeichnis)
  680.       (copyfiles
  681.         (source "stormamiga_lib_e.guide")
  682.         (dest "INSTDOK:")
  683.         (infos)
  684.       )
  685.     )
  686.       )
  687.     )
  688.   )
  689. )
  690. (makeassign "TMP")
  691. (makeassign "INST")
  692. (makeassign "INSTDOK")
  693.